home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Hyper / H / HyperExtras.sit / HyperExtras / HyperExtras.rsrc / TEXT_3010_getObjectInfoText.txt < prev    next >
Encoding:
Text File  |  1994-03-23  |  925 b   |  26 lines
  1.  global PathToObjectsList, Infos
  2.   if PathToObjectsList is empty then
  3.     put procPath() into path
  4.     put "Objects" after last word of path
  5.     if there is a file path then
  6.       put path into PathToObjectsList
  7.     else
  8.       answer "Create a new file List or find an old one?" with "New" or "Find" or "Cancel"
  9.       if it is "Cancel" then exit to hypercard
  10.       if it is "Find" then
  11.         answer file "Please pick objects list file"
  12.         if it is not empty and the result is not cancel then
  13.           put it into PathToObjectsList
  14.         end if
  15.       else
  16.         ask file "Please choose a location for the list file"
  17.         if it is not empty and the result is not cancel then
  18.           put it into PathToObjectsList
  19.         end if
  20.       end if
  21.     end if
  22.   end if
  23.   open file PathToObjectsList
  24.   read from file PathToObjectsList until eof
  25.   if it is not empty then put it into Infos
  26.   close file PathToObjectsList